*** empty log message ***

diff --git a/lisp/net/tramp-ftp.el b/lisp/net/tramp-ftp.el
index eed7f92b0e97cf945a1c8c60187cce32e27ead3e..c2a04efbc1961dca3e391c4ec8bd4a1dc8f4a003 100644 (file)
--- a/lisp/net/tramp-ftp.el
+++ b/lisp/net/tramp-ftp.el
@@ -134,7 +134,7 @@ First arg specifies the OPERATION, second arg is a list of arguments to
 pass to the OPERATION."
   (save-match-data
     (or (boundp 'ange-ftp-name-format)
-       (require 'ange-ftp))
+       (let (file-name-handler-alist) (require 'ange-ftp)))
     (let ((ange-ftp-name-format
           (list (nth 0 tramp-file-name-structure)
                 (nth 3 tramp-file-name-structure)